home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Over 1,000 Windows 95 Programs
/
Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso
/
1260
/
quickpas.cf_
/
quickpas.cf
Wrap
Text File
|
1996-03-12
|
4KB
|
218 lines
; -------------------------------------------------------------------------
; --------- EasyCODE(SPX) - Configuration for QuickPascal -----------------
; -------------------------------------------------------------------------
[ParseOptions]
Parser=easy-pas.dll
PushDownVar=no
PushDownConst=no
PushDownType=no
PushDownProcedureBody=no
PushDownFunctionBody=no
PushDownInterface=no
PushDownInitialization=no
PushDownImplementation=no
NestedComments=yes
[GenOptions]
InitialIndent=0
CompressBlanks=yes
GenFileExt=PAS
MaxIndent=-1
MaxLineLength=-1
[Settings]
SourceFileFormat=OEM
[AvailableConstructs]
Statement=yes
If=yes
Switch=yes
Case=yes
For=yes
While=yes
Repeat=yes
Loop=yes
Exit=no
Procedure=yes
Call=yes
Function=yes
Block=yes
Frame=yes
Condition=yes
And=yes
Or=yes
Not=yes
[InsertMenuStrings]
;Statement=
If=&if
Switch="if-el&se if"
When=" &else if"
Case=&case
Of=" &of"
For=&for
While=&while
Repeat=re&peat
Loop=&loop
;Exit=
Procedure=procedure
Call=call
Function=f&unction
;Block=
;Frame=
;Condition=
;And=
;Or=
;Not=
[EncloseMenuStrings]
If=&if
Then=&then
Else=&else
Switch="if-&else if"
When="&else if"
WhenNone=e&lse
Case=&case
Of=&of
Otherwise=&else
For=&for
While=&while
Repeat=&repeat
Loop=&loop
;Exit=
Procedure=&procedure
Function=f&unction
;Block=
;Frame=
;Condition=
;And=
;Or=
;Not=
[KeywordStrings]
;If=
;Then=
;Else=
Switch="if-else if"
FirstWhen="if"
When="else if"
WhenNone="else"
;Case=
;FirstOf=
;Of=
Otherwise="else"
;For=
;While=
;Repeat=
;Loop=
Procedure="procedure"
Function="function"
;Block=
And=AND
Or=OR
Not=NOT
[MetaStrings]
;SegmentHeader=
;Statement=
;Condition=
;Expression=
;Value=
;ForStatement=
;ProcedureHeader=
;ProcedureCall=
;FunctionHeader=
;BlockComment=
;FrameHeader=
;FrameFooter=
[GenStrings]
Statement='\N'
EndStatement='\N'
If='\Nif \3+'
ThenBody='\3-\Nthen begin\n\8+'
ElseBody='\3-\Nend\5-\nelse begin\n\8+'
EmptyElseBody=''
EndIf='\N\3-end;\n\5-'
Case='\Ncase \5+'
FirstOf=' of\2-\n'
FurtherOf='\3-\Nend;\n\3-'
OfBody=':\n\3+begin\n\3+'
OtherwiseBody='\3-\Nend;\n\3-else\n\3+begin\3+\n'
EmptyOtherwiseBody=''
EndCase='\N\3-end;\n\6-end;\n'
Switch=''
FirstWhen='\Nif \8+'
FurtherWhen='\3-\Nend\5-\nelse if \8+'
WhenBody='\8-\Nthen begin\n\8+'
WhenNoneBody='\3-\Nend\5-\nelse begin\n\8+'
EmptyWhenNoneBody=''
EndSwitch='\N\3-end;\n\5-'
For='\Nfor \4+'
ForBody=' do\n\4-begin\3+\n'
EndFor='\N\3-end;\n'
While='\Nwhile \6+'
WhileBody=' do\n\6-begin\3+\n'
EndWhile='\N\3-end;\n'
Repeat='\Nrepeat\n\3+'
Until='\N\3-until \6+'
EndRepeat=';\6-\n'
Loop='\Nwhile true do\nbegin\n\3+'
EndLoop='\3-\Nend;\n'
; Warning!
; The GenString Exit is not provided, because the EXIT
; construct is not supported by Pascal.
; Please change the enclosing LOOP construct to a WHILE or REPEAT construct!
; Due to the GenString EndExit you will find the following hint
; in the generated source program:
EndExit='\s\0:\n\nWarning! EXIT construct not allowed.\n\n\r'
Procedure='\Nprocedure \10+'
ProcedureBody='\10-\N'
EndProcedure=';\N'
Call='\N'
EndCall=';\n'
Function='\Nfunction \9+'
FunctionBody='\9-\N'
EndFunction=';\N'
Block='\N{ \5+'
BlockBody=' }\5-\n'
EndBlock='\N'
Frame='\N'
FrameBody='\N\3+'
EndFrameBody='\N\3-'
EndFrame=''
BeginAnd=' (\5+'
And=')\n\5-and (\5+'
EndAnd=')\5-'
BeginOr=' (\5+'
Or=')\n\5-or (\5+'
EndOr=')\5-'
BeginNot='not (\5+'
EndNot=')\5-'
Condition=''
EndCondition=''
Segment='\N{ \2+'
SegmentBody=' }\n'
EndSegment='\2-\N'
TopSegment='{ Generated by \%PNAME% V\%PVER% at \%TIME%\n with \%CFG% }\n\n{ \2+'
TopSegmentBody=' }\2-\n\n'
EndTopSegment='\N'